KEW_METHOD(kew_action_handle)
{
	KewExceptionHandlerFrame new_frame;
	KewExceptionObject *exception;

	KewCheckType(args[0], &KewExceptionType, "exception");
	exception = (KewExceptionObject *) args[0];

	new_frame.next_on_stack = kew_top_exception_handler_frame;
	new_frame.next = exception->first_handler;
	new_frame.block = args[1];
	new_frame.exception = exception;
	exception->first_handler = &new_frame;
	kew_top_exception_handler_frame = &new_frame;

	KewSend(receiver, "do", NULL, 0, results, num_results);

	exception->first_handler = exception->first_handler->next;
	kew_top_exception_handler_frame = kew_top_exception_handler_frame->next_on_stack;
}
